(isearch-search): In the condition-case handler for

`error', set isearch-invalid-regexp to the whole error message.

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 997cdc6aac9764fcb40050f608a8b5f8196a6158..251c85cf1e9e626858fcc85f2da95bac720caa12 100644 (file)
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -1583,8 +1583,8 @@ If there is no completion possible, say so and continue searching."
          isearch-invalid-regexp)
         (setq isearch-invalid-regexp "incomplete input")))
     (error
-     ;; stack overflow in regexp search.
-     (setq isearch-invalid-regexp (car (cdr lossage)))))
+     ;; Stack overflow in regexp search, for instance.
+     (setq isearch-invalid-regexp (format "%s" lossage))))
 
   (if isearch-success
       nil